home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d16 / wc15_b.arc / SCHEDULE.WMS < prev    next >
Encoding:
Text File  |  1991-03-22  |  526 b   |  26 lines
  1. ;WinComm Dialing Directory
  2.  
  3. hs = FOPEN(2,"dial.que")        ; dialing que must already be setup
  4. if(hs==-1){
  5.     PUTSESSINT(71,0)
  6.     HALT
  7. }
  8. else {
  9.     a$ = FREADLN(hs)
  10.         hd=FOPEN(4096,"t1.txt")
  11.         b$=FREADLN(hs)
  12.         WHILE(NULL(b$) == 0)
  13.         FWRITE(hd,LEN(b$),b$)
  14.             b$=FREADLN(hs)
  15.         WEND
  16.         FCLOSE(hs) FCLOSE(hd)
  17.         DELETEFILE("dial.que") 
  18.         RENAME("t1.txt","dial.que")
  19.         b$=EXTRACT(CHAR(9),a$,1)
  20.     IF(NULL(b$)) PUTSESSINT(71,0)
  21.     ELSE  OPEN(b$+".wsf","",5)
  22.     HALT
  23. }
  24. END
  25.  
  26.